home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Musica
/
ZMUD32.ZIP
/
ZMUD.EXE
/
0
/
RCDATA
/
TIMPORTDLG
/
TIMPORTDLG.txt
Wrap
Text File
|
1997-06-09
|
16KB
|
654 lines
object ImportDlg: TImportDlg
Left = 264
Top = 146
HelpContext = 230
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'Import Settings'
ClientHeight = 329
ClientWidth = 492
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 8
Top = 0
Width = 32
Height = 32
AutoSize = True
end
object Label3: TLabel
Left = 48
Top = 8
Width = 293
Height = 13
Caption = 'Select the items you want to import by double-clicking on them'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 64
Top = 22
Width = 315
Height = 13
Caption =
'or clicking the Add button, then click the Import button when do' +
'ne.'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object LoadBtn: TSpeedButton
Left = 8
Top = 40
Width = 20
Height = 20
Hint = 'Select input file|'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555500000000000555550000000000
05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7
B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7
B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7
B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB
0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000
5555550000055555555555000005555555555555555555555555555555555555
5555555555555555555555555555555555555555555555555555000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = LoadBtnClick
end
object SpeedButton2: TSpeedButton
Left = 222
Top = 112
Width = 68
Height = 25
Hint = 'Add|'
Caption = 'Add'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333344333333333333333FF33333333333334643333
3333333333F3F33333333333346643333333333333F33F333333333334666433
3333333333F333F333333333346666433333333333F3333F3333333334666664
3333333333F33333F3333333346666664333333333F333333F33333334666666
E333333333F33333383333333466666E3333333333F3333383333333346666E3
3333333333F333383333333334666E333333333333F33383333333333466E333
3333333333F3383333333333346E33333333333333F38333333333333EE33333
3333333333883333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Layout = blGlyphRight
Margin = 4
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 222
Top = 144
Width = 68
Height = 25
Hint = 'Remove|'
Caption = 'Remove'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333344333333333333333FF33333333333346
433333333333333F3F3333333333346643333333333333F33F33333333334666
4333333333333F333F33333333346666433333333333F3333F33333333466666
43333333333F33333F333333346666664333333333F333333F3333333E666666
43333333338333333F33333333E6666643333333333833333F333333333E6666
43333333333383333F3333333333E66643333333333338333F33333333333E66
43333333333333833F333333333333E643333333333333383F3333333333333E
E333333333333333883333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 1
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton3Click
end
object Label2: TLabel
Left = 296
Top = 48
Width = 98
Height = 13
Caption = 'Items to be imported:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object OKBtn: TBitBtn
Left = 236
Top = 294
Width = 77
Height = 27
Caption = 'Import'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Margin = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 320
Top = 294
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 404
Top = 294
Width = 77
Height = 27
HelpContext = 230
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object InList: TListBox
Left = 340
Top = 144
Width = 152
Height = 57
ExtendedSelect = False
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 3
Visible = False
end
object OutList: TListBox
Left = 336
Top = 80
Width = 153
Height = 57
ExtendedSelect = False
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 4
Visible = False
end
object InGrid: TDrawGrid
Left = 8
Top = 64
Width = 209
Height = 168
ColCount = 2
DefaultRowHeight = 15
DefaultDrawing = False
FixedCols = 0
RowCount = 10
FixedRows = 0
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [goRowSelect, goThumbTracking]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 5
OnClick = InGridClick
OnDrawCell = InGridDrawCell
OnKeyDown = InGridKeyDown
OnKeyPress = InGridKeyPress
OnMouseDown = InGridMouseDown
OnMouseMove = InGridMouseMove
OnMouseUp = InGridMouseUp
ColWidths = (
73
180)
end
object InFile: TEdit
Left = 32
Top = 40
Width = 185
Height = 21
TabStop = False
AutoSize = False
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object OutGrid: TDrawGrid
Left = 296
Top = 64
Width = 185
Height = 168
ColCount = 2
DefaultRowHeight = 15
DefaultDrawing = False
FixedCols = 0
FixedRows = 0
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [goRowSelect, goThumbTracking]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 7
OnClick = OutGridClick
OnDrawCell = OutGridDrawCell
OnKeyDown = InGridKeyDown
OnKeyPress = OutGridKeyPress
OnMouseDown = OutGridMouseDown
OnMouseMove = OutGridMouseMove
OnMouseUp = InGridMouseUp
ColWidths = (
73
152)
end
object Panel1: TPanel
Left = 8
Top = 240
Width = 209
Height = 81
BevelOuter = bvLowered
TabOrder = 8
object DoAlias: TRadioButton
Left = 24
Top = 8
Width = 73
Height = 17
Caption = 'Aliases'
Checked = True
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
OnClick = DoAliasClick
end
object DoVar: TRadioButton
Left = 24
Top = 24
Width = 73
Height = 17
Caption = 'Variables'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = DoAliasClick
end
object DoPath: TRadioButton
Left = 24
Top = 40
Width = 73
Height = 17
Caption = 'Paths'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = DoAliasClick
end
object DoTrig: TRadioButton
Left = 112
Top = 8
Width = 73
Height = 17
Caption = 'Triggers'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = DoAliasClick
end
object DoMacro: TRadioButton
Left = 24
Top = 56
Width = 73
Height = 17
Caption = 'Macros'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = DoAliasClick
end
object DoBut: TRadioButton
Left = 112
Top = 24
Width = 73
Height = 17
Caption = 'Buttons'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = DoAliasClick
end
object DoOther: TRadioButton
Left = 112
Top = 40
Width = 73
Height = 17
Caption = 'Colors, etc'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = DoAliasClick
end
end
object Pages: TNotebook
Left = 224
Top = 236
Width = 71
Height = 57
TabOrder = 9
object TPage
Left = 0
Top = 0
Caption = 'Aliases'
object AliasText: TLabel
Left = 11
Top = 7
Width = 54
Height = 13
Alignment = taRightJustify
Caption = 'Alias name:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComText: TLabel
Left = 10
Top = 31
Width = 55
Height = 13
Alignment = taRightJustify
Caption = 'Commands:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object TPage
Left = 0
Top = 0
Caption = 'Variables'
object Label4: TLabel
Left = 24
Top = 7
Width = 41
Height = 13
Alignment = taRightJustify
Caption = 'Variable:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 35
Top = 31
Width = 30
Height = 13
Alignment = taRightJustify
Caption = 'Value:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object TPage
Left = 0
Top = 0
Caption = 'Paths'
object Label6: TLabel
Left = 11
Top = 7
Width = 54
Height = 13
Alignment = taRightJustify
Caption = 'Path name:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 15
Top = 31
Width = 50
Height = 13
Alignment = taRightJustify
Caption = 'Directions:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object TPage
Left = 0
Top = 0
Caption = 'Macros'
object Label8: TLabel
Left = 44
Top = 7
Width = 21
Height = 13
Alignment = taRightJustify
Caption = 'Key:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 10
Top = 31
Width = 55
Height = 13
Alignment = taRightJustify
Caption = 'Commands:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object TPage
Left = 0
Top = 0
Caption = 'Triggers'
object Label10: TLabel
Left = 28
Top = 7
Width = 37
Height = 13
Alignment = taRightJustify
Caption = 'Pattern:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 10
Top = 31
Width = 55
Height = 13
Alignment = taRightJustify
Caption = 'Commands:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object TPage
Left = 0
Top = 0
Caption = 'Buttons'
object Label12: TLabel
Left = 26
Top = 7
Width = 39
Height = 13
Alignment = taRightJustify
Caption = 'Caption:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 15
Top = 31
Width = 50
Height = 13
Alignment = taRightJustify
Caption = 'Command:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object TPage
Left = 0
Top = 0
Caption = 'Other'
end
end
object AliasName: TEdit
Left = 296
Top = 241
Width = 185
Height = 21
TabStop = False
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 10
Text = 'AliasName'
end
object AliasCom: TEdit
Left = 296
Top = 265
Width = 185
Height = 21
TabStop = False
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 11
Text = 'AliasCom'
end
object OpenDialog: TOpenDialog
DefaultExt = 'mud'
FileEditStyle = fsEdit
Filter = 'MUD files|*.mud|All files|*.*'
Left = 448
Top = 8
end
end